home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Education'More / M-Q / MPOWERFlashcrds.9b.cpt / M-POWER Flash Cards / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-03-11  |  6KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>35582</cardID>
  8.     <listID>2216</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- M-POWER Flash Cards version 0.9 beta-- ¬© Copyright 1991 Henry C. Hsu    All Rights Reserved-- Scripting, graphics, and design by Henry C. Hsu---- SaveFilePackage XFCNs-- by Mark A. Spaulding-- Copyright ¬© 1990 by Foundation Software.  All Rights Reserved.-- Portions ¬© 1989 Language System Corp.on openStackhide menubarset the userLevel to 2end openStackon searchforglobal finditask "Search for what keyword?" with finditput it into finditrefindswapsidesend searchforon refindglobal findit,lastfieldfind finditput the foundField into lastfieldend refindon doPlayput field "default" into defsideput first word of field "delay" into delayanswer "Play through " & defside & "s only or with card flipping?"¬¨with "Cancel" or defside or "Flip sides"if it is "Cancel"then exit doPlayelse put it into flipanswer "Click on the mouse button to stop"put the number of cards into totalput the id of this card into oldcardrepeat with j = 1 to totalif the mouseClick is true then exit repeatif field "navigation" is "Sequential"then go nextelsego anyif the id of this card is oldcardthen go anyend ifwait delay secondsif flip is "Flip sides" thensend mouseUp to bkgnd button "F L I P"wait delay secondsend ifend repeatend doPlayon sortcardsanswer "Sort by English or German?"¬¨with "cancel" or "English" or "German"if it is "German"then sort by last word of item 1 of line 1 of field "German Word"if it is "English"then sort by field "Definition"end sortcardson swapsidesif the visible of field "term" is true thenhide field "term"show field "definition"put "Definition" into field "vi"elsehide field "definition"show field "term"put "Term" into field "vi"end ifend swapsideson tabKeyclick at location of bkgnd button "F L I P"click at 350,100end tabKeyon enterKeymakenewend enterKeyon enterInFieldmakenewend enterInFieldon printflashcardlock screenhideAllshow bkgnd button "recover"show field (field "vi")mark this cardopen printingprint Cardclose printingunmark this cardshowAllhide bkgnd button "recover"unlock screenend printflashcardon poweranswer "Exit to which?" with "cancel" or "home" or "finder"if it is "home" then go homeif it is "finder" then doMenu Quit HyperCardend poweron makenewvisual effect scroll downdoMenu New Cardif field "default" is "Term" thenput "Term" into field "vi"hide field "Definition"show field "Term"elseput "Definition" into field "vi"show field "Definition"hide field "Term"end ifput "Moderate" into field "difficulty"click at 350,100end makenewon hideAllhide background pictureput the number of bg buttons into totalbuttonsput the number of bg fields into totalfieldsrepeat with j = 1 to totalbuttonshide bg button jend repeatrepeat with j = 2 to totalfieldshide bg field jend repeatend hideAllon showAllshow background pictureput the number of bg buttons into totalbuttonsput the number of bg fields into totalfieldsrepeat with j = 1 to totalbuttons - 1show bg button jend repeatrepeat with j = 4 to totalfields - 2show bg field jend repeatsend mouseUp to bg button "done"send mouseUp to field "about"end showAllon setTextlock screenset the cursor to watchchoose field toolset the cursor to watchif the visible of field "term" is true thenclick at location of field "Term"set the cursor to watchdoMenu Text Style...set the textFont of field "Definition" ¬¨to the textFont of field "Term"set the textSize of field "Definition" ¬¨to the textSize of field "Term"set the textHeight of field "Definition" ¬¨to the textHeight of field "Term"set the textAlign of field "Definition" ¬¨to the textAlign of field "Term"set the textStyle of field "Definition" to ¬¨the textStyle of field "Term"hide msgelseclick at the location of field "Definition"set the cursor to watchdoMenu Text Style...set the textFont of field "Term" ¬¨to the textFont of field "Definition"set the textSize of field "Term" ¬¨to the textSize of field "Definition"set the textHeight of field "Term" ¬¨to the textHeight of field "Definition"set the textAlign of field "Term" ¬¨to the textAlign of field "Definition"set the textStyle of field "Term" to the textStyle of field "Definition"hide msgend ifchoose browse toolunlock screenend setTexton closeStackend closeStackfunction clickLinereturn ((the mouseV - item 2 of the rect of the target-4)¬¨div the textheight of the target) + 1end clickLineon rightSideif field "default" is "Term" thenput "Term" into field "vi"show field "Term"hide field "Definition"elseput "Definition" into field "vi"show field "Definition"hide field "Term"end ifend rightSideon openCardrightSideput the number of cards into totalput the number of this card into viewingcardput (viewingcard && " of " & total) into field "card no."unlock screenend openCardon closeCardlock screenput empty into field "card no."end closeCardon purgeALLlock screenput the number of cards into totalrepeat with x = 2 to totalgo nextDoMenu Delete Cardend repeatunlock screenend purgeALLon selectWholeLine lineNumber, theFieldput line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬¨the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬¨&& theFieldend ifend selectWholeLine</script>
  17.     <background id="2698" file="background_2698.xml" name="flash cards" />
  18.     <card id="35582" file="card_35582.xml" marked="false" name="" owner="2698" />
  19.     <card id="2900" file="card_2900.xml" marked="false" name="" owner="2698" />
  20.     <card id="3386" file="card_3386.xml" marked="false" name="" owner="2698" />
  21.     <card id="3599" file="card_3599.xml" marked="false" name="" owner="2698" />
  22. </stack>
  23.